`timescale 1ns/100ps

module real_literal ();

real        a;
shortreal   b;

initial begin
    $monitor ("@ %gns a = %e b = %e ", $time, a, b);
    a = '0;
    b = 1.0e2;
    #1 a = 2e5;
    #1 b = shortreal'(a); // Type casting
    #1 a = 2.1E-2;
    #1 b = shortreal'(a); // Type casting
    #1 $finish;
end

endmodule
